
 1000  *SAVE S.SEARCH AND PERFORM
 1010  *--------------------------------
 1020         .MA JTBL
 1030         .DA #$]1,]2-1
 1040         .EM
 1050  *--------------------------------
 1060  SEARCH.AND.PERFORM.NEXT
 1070         INY               POINT TO NEXT ENTRY
 1080         INY
 1090         INY
 1100  SEARCH.AND.PERFORM
 1110         LDA T.BASE,Y      GET VALUE FROM TABLE
 1120         BEQ .1            NOT IN THE TABLE
 1130         CMP CURRENT.CHAR
 1140         BNE SEARCH.AND.PERFORM.NEXT
 1150  .1     LDA T.BASE+2,Y    LOW-BYTE OF BRANCH
 1160         PHA
 1170         LDA T.BASE+1,Y    HIGH-BYTE OF BRANCH
 1180         PHA
 1190         LDY #0       (SINCE MOST BRANCHES WANT Y=0)
 1200         RTS               DO THE BRANCH!
 1210  *--------------------------------
 1220  T.BASE
 1230  T.ESC0
 1240         >JTBL 83,TOGGLE.CASE.LOCK
 1250         >JTBL 89,TAB.INSERT
 1260         >JTBL 8D,INSERT.CHAR.INTO.TEXT
 1270         >JTBL 8F,OVERRIDE
 1280         >JTBL 94,TAB.REPLACE
 1290         >JTBL 9B,ESC0.ESC
 1300         >JTBL 00,SC.BELL
 1310  *--------------------------------
 1320  T.ESC2
 1330         >JTBL 83,SET.CASE.TOGGLE
 1340         >JTBL 89,TAB.SKIP
 1350         >JTBL 94,TAB.SKIP
 1360         >JTBL 9B,ESC2.ESC
 1370         >JTBL C9,SCAN.UP.12
 1380         >JTBL CA,SCAN.LEFT.6
 1390         >JTBL CB,SCAN.RIGHT.6
 1400         >JTBL CD,SCAN.DOWN.12
 1410         >JTBL E9,SCAN.UP
 1420         >JTBL EA,SCAN.LEFT
 1430         >JTBL EB,SCAN.RIGHT
 1440         >JTBL ED,SCAN.DOWN
 1450         >JTBL 00,ESC2.END
 1460  *--------------------------------
 1470  T.BOTH
 1480         >JTBL 81,AUXILIARY.MENU
 1490         >JTBL 82,SCAN.BEGIN
 1500         >JTBL 84,DELETE.FORWARD.TO.X
 1510         >JTBL 85,SCAN.END
 1520         >JTBL 86,FLIP.CHARS
 1530         >JTBL 88,PUSH.CHAR.ON.KEYSTACK
 1540         >JTBL 90,TOGGLE.CLICKER
 1550         >JTBL 91,MAIN.MENU
 1560         >JTBL 93,SEARCH.AND.REPLACE
 1570         >JTBL 95,PULL.CHAR.OFF.KEYSTACK
 1580         >JTBL 97,DELETE.WORD
 1590         >JTBL 98,DELETE.LINE
 1600         >JTBL 9D,TOGGLE.CR.SEE
 1610         >JTBL 00,PROCESS.CHAR.1
 1620  *--------------------------------
 1630  T.MAIN
 1640         >JTBL C4,MAIN.DOS
 1650         >JTBL C5,MAIN.EDIT
 1660         >JTBL CC,MAIN.LOAD
 1670         >JTBL CE,MAIN.NEW
 1680         >JTBL D0,MAIN.PRINT
 1690         >JTBL D1,MAIN.QUIT
 1700         >JTBL D3,MAIN.SAVE
 1710         >JTBL 00,MON.BELL
 1720  *--------------------------------
 1730  T.AUX
 1740         >JTBL C3,COPY.BLOCK
 1750         >JTBL C4,DELETE.BLOCK
 1760         >JTBL C6,DISPLAY.FREE
 1770         >JTBL C9,INSERT.FILE
 1780         >JTBL CD,MOVE.BLOCK
 1790         >JTBL D3,SAVE.SEGMENT
 1800         >JTBL D4,TAB.SET
 1810         >JTBL 00,SC.BELL
 1820  *--------------------------------

